home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Mathematics / Notebooks / Cantor / Cantor1.ma < prev    next >
Encoding:
Text File  |  1992-08-07  |  18.5 KB  |  238 lines

  1. (*^
  2.  
  3. ::[paletteColors = 128; showRuler; automaticGrouping; magnification = 125; currentKernel; 
  4.     fontset = title, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L1, e8,  24, "Times"; ;
  5.     fontset = subtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L1, e6,  18, "Times"; ;
  6.     fontset = subsubtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, italic, L1, e6,  14, "Times"; ;
  7.     fontset = section, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, grayBox, M22, bold, L1, a20,  18, "Times"; ;
  8.     fontset = subsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, blackBox, M19, bold, L1, a15,  14, "Times"; ;
  9.     fontset = subsubsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, whiteBox, M18, bold, L1, a12,  12, "Times"; ;
  10.     fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12;
  11.     fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  10, "Times"; ;
  12.     fontset = input, noPageBreakBelow, nowordwrap, preserveAspect, groupLikeInput, M42, N23, bold, L1,  12, "Courier"; ;
  13.     fontset = output, output, inactive, noPageBreakBelow, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5,  12, "Courier"; ;
  14.     fontset = message, inactive, noPageBreakBelow, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L1,  12, "Courier"; ;
  15.     fontset = print, inactive, noPageBreakBelow, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L1,  12, "Courier"; ;
  16.     fontset = info, inactive, noPageBreakBelow, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L1,  12, "Courier"; ;
  17.     fontset = postscript, PostScript, formatAsPostScript, output, inactive, noPageBreakBelow, nowordwrap, preserveAspect, groupLikeGraphics, M7, l34, w282, h287, L1,  12, "Courier"; ;
  18.     fontset = name, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, L1,  10, "Times"; ;
  19.     fontset = header, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12;
  20.     fontset = Left Header, nohscroll, cellOutline,  12;
  21.     fontset = footer, inactive, nohscroll, noKeepOnOnePage, preserveAspect, center, M7, L1,  12;
  22.     fontset = Left Footer, cellOutline, blackBox,  12;
  23.     fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  10, "Times"; ;
  24.     fontset = clipboard, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12;
  25.     fontset = completions, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12, "Courier"; ;
  26.     fontset = special1, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12;
  27.     fontset = special2, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12;
  28.     fontset = special3, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12;
  29.     fontset = special4, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12;
  30.     fontset = special5, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12;]
  31. :[font = title; inactive; preserveAspect; startGroup; ]
  32. Constructions of  Cantor Sets
  33. :[font = subsubtitle; inactive; preserveAspect; ]
  34. Steven R. Dunbar
  35. Department of Mathematics and Statistics
  36. University of Nebraska-Lincoln
  37. :[font = subsubtitle; inactive; preserveAspect; ]
  38. David Fowler
  39. Department of Curriculum and Instruction
  40. University of Nebraska-Lincoln
  41. :[font = smalltext; inactive; preserveAspect; right; ]
  42. ª Copyright  Steven R. Dunbar, David Fowler, 1992, All rights reserved.  T
  43. ;[s]
  44. 2:0,0;1,1;74,-1;
  45. 2:1,0,0,Symbol,0,10,0,0,0;1,9,7,Times,0,10,0,0,0;
  46. :[font = section; inactive; Cclosed; preserveAspect; startGroup; ]
  47. Before Starting
  48. :[font = input; Cclosed; preserveAspect; startGroup; ]
  49. SetDirectory["mma"]
  50. :[font = output; output; inactive; preserveAspect; endGroup; ]
  51. "/Users/sdunbar/mma"
  52. ;[o]
  53. /Users/sdunbar/mma
  54. :[font = input; preserveAspect; ]
  55. Get["CantorSet.ma"]
  56. :[font = subsubsection; inactive; Cclosed; preserveAspect; startGroup; ]
  57. Terminology:
  58. :[font = text; inactive; preserveAspect; endGroup; endGroup; ]
  59. You will need to have an understanding of the following terms to use this Notebook and solve the problems: closed set, open set, isolated point, limit point, connected interval,  infinite series, cardinality, one-to-one correspondence
  60. :[font = section; inactive; Cclosed; preserveAspect; startGroup; ]
  61. Excluded Portions Construction of the Cantor Set
  62. :[font = text; inactive; preserveAspect; ]
  63. The traditional Cantor set is defined by removing or excluding successive open middle thirds from a sequence of closed intervals.  Starting from the interval I1 = [0,1], the middle third (1/3,2/3) is removed, leaving the union of closed intervals 
  64. I2 = [0,1/3] ¨[2/3,1].  From the intervals in I2, the middle thirds (1/9,2/9) and (7/9,8/9) respectively are removed, and so on.  The Cantor set is then defined as the intersection of all the intervals:
  65.              ¥
  66.     C =   ˙     In.
  67.             n=1
  68. ;[s]
  69. 18:0,0;159,1;160,2;249,3;250,4;261,5;262,6;295,7;296,8;297,9;460,10;461,11;462,12;470,13;471,14;476,15;477,16;489,17;492,-1;
  70. 18:1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,0,0,Symbol,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,32,12,0,0,0;
  71. :[font = input; preserveAspect; ]
  72. intervals[1]
  73. :[font = input; preserveAspect; ]
  74. intervals[2]
  75. :[font = input; preserveAspect; ]
  76. Table[ intervals[n], {n,4}] // MatrixForm
  77. :[font = input; preserveAspect; ]
  78. showIntervals[5]
  79. :[font = text; inactive; preserveAspect; ]
  80. This definition can be generalized by allowing arbitrary intervals [a,b].  A further generalization is to consider retaining a fraction r1 on the left of each interval and a fraction r2 on the right of each interval for r1+r2 < 1.  This removes a portion 1-r1-r2 of each interval. Thus 
  81.     I1 = [a,b] 
  82.     I2 = [a, a +r1(b-a)] ¨[b-r2(b-a), b].
  83. The subintervals comprising  In are called complementary intervals.
  84.  The intersection of all  sets so created is a Cantor set.  The generalized Cantor set is denoted C(a,b,r1,r2).  The traditional Cantor set is  C = C(0,1,1/3,1/3).
  85. ;[s]
  86. 29:0,0;137,1;138,2;184,3;185,4;221,5;222,6;224,7;225,8;258,9;259,10;261,11;262,12;289,13;290,14;302,15;303,16;314,17;315,18;322,19;323,20;327,21;328,22;369,23;370,24;512,25;513,26;515,27;516,28;571,-1;
  87. 29:1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;
  88. :[font = input; preserveAspect; ]
  89. cantorSet[{0,2}, 1/4,1/4,1]
  90. :[font = input; preserveAspect; ]
  91. cantorSet[{0,2}, 1/4, 1/4, 2]
  92. :[font = input; preserveAspect; ]
  93. Table[ cantorSet[{0,2}, 1/4, 1/4, n], {n,4}] // MatrixForm
  94. :[font = input; preserveAspect; ]
  95. showCantorSet[{{0,2}}, 1/4, 1/4, 5]
  96. :[font = text; inactive; preserveAspect; ]
  97. For comparison, here are the stages of approximation on the way to a somewhat  ``fatter'' Cantor set.  We will make the notion of  ``fatter'' mathematically precise later. 
  98. :[font = input; preserveAspect; endGroup; ]
  99. showCantorSet[{{0,2}}, 1/2.5, 1/2.5, 5]
  100. :[font = section; inactive; Cclosed; preserveAspect; startGroup; ]
  101. Number-Base Constructions of  Cantor Sets
  102. :[font = text; inactive; preserveAspect; ]
  103. The construction of the Cantor set C above is a set-theoretic or geometrical construction. There are other ways to characterize the Cantor set.   Just as every real number in [0,1]  has a decimal  or base-10 expansion x = 0.d1d2d3... = d1/10 + d2/102 + d3/103 + ... so too every number in [0,1] can be written in a ternary or base-three expansion,  x = 0.t1t2t3...
  104. = t1/3 + t2/32 + t3/33 + ...
  105. These defintions contain a slight ambiguity since a given number may have two expansions, for instance 1/2 = 0.510 and 0.499999...10.  When necessary to eliminate ambiguity, we always choose the non-trivial  infinite series expansion over the terminating or finite series representation.
  106. ;[s]
  107. 27:0,0;237,1;238,2;245,3;246,4;249,5;250,6;254,7;255,8;258,9;259,10;356,11;357,12;358,13;359,14;360,15;361,16;368,17;369,18;375,19;376,20;378,21;379,22;383,23;384,24;386,25;387,26;682,-1;
  108. 27:1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,32,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,32,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,32,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,32,12,0,0,0;1,11,8,Times,0,12,0,0,0;
  109. :[font = input; preserveAspect; ]
  110. BaseForm[1/3,3]
  111. BaseForm[N[1/3],3]
  112. BaseForm[2/3,3]
  113. BaseForm[1/9,3]
  114. BaseForm[N[1/9],3]
  115. :[font = text; inactive; preserveAspect; ]
  116. The Cantor set C can be characterized as the set of real numbers in [0,1] which do not contain a 1 in their ternary expansion.  This follows from the traditional set-theoretic definition by noting that all expansions with no 1 in the first location (remember the convention about terminating and non-terminating expansions) must be in the interval  I2 = [0,1/3] ¨[2/3,1], those with no 1 in the first or second location must be in the intervals obtained by removing the middle third from these intervals and so on.   As we have seen in a pervious Notebook, this is Cantor's original definition of his set. 
  117. ;[s]
  118. 5:0,0;350,1;351,2;362,3;363,4;606,-1;
  119. 5:1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;
  120. :[font = text; inactive; preserveAspect; ]
  121. Generalized Cantor sets may sometimes be  characterized by number-base expansions, particularly if r1 and r2 are rational numbers.
  122. ;[s]
  123. 5:0,0;100,1;101,2;107,3;108,4;131,-1;
  124. 5:1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;
  125. :[font = input; preserveAspect; ]
  126. cantorSet[{0,1}, 1/4, 1/4, 3]
  127. :[font = input; preserveAspect; ]
  128. BaseForm[N[%],4]
  129. :[font = text; inactive; preserveAspect; endGroup; ]
  130. When converted to non-terminating base-4 expansions, this set would have no digits 1 or 2.  This should be clear from the definition of excluding the middle one-half at each stage.
  131. :[font = section; inactive; Cclosed; preserveAspect; startGroup; ]
  132. Iterated-Function-System Constructions of Cantor Sets
  133. :[font = text; inactive; preserveAspect; ]
  134. Another way of constructing the Cantor set is by means of an Iterated Function System, or IFS for short.  We give an example of an IFS for the classical Cantor set C here in both the deterministic and random forms and discuss the theory in another section.
  135. :[font = text; inactive; preserveAspect; ]
  136. An IFS for the Cantor set is specified by giving a set A of subintervals of  [0,1].  A set of 2 linear affine mappings w1(x) = x/3, and w2(x) = x/3 + 2/3 is given.  Each mapping is applied to the each subinterval in A, and the union of all images produces a new set, say W(A).  The process is repeated on W(A), giving W(W(A)), and so on.  The resulting sequence of sets converges in a sense to be made precise later to the Cantor set C.
  137. ;[s]
  138. 5:0,0;120,1;121,2;137,3;138,4;436,-1;
  139. 5:1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;
  140. :[font = input; preserveAspect; ]
  141. i0 = {{0,1}}  (* A list of intervals, here 1 interval *)
  142. :[font = input; preserveAspect; ]
  143. affinemaps = {{0,1/3},{2/3, 1/3}}
  144. (* Affine maps 0 + (1/3)x and 2/3 + (1/3)x  *)
  145. :[font = input; preserveAspect; ]
  146. mapUnion[i0,affinemaps]
  147. :[font = input; preserveAspect; ]
  148. mapUnion[%, affinemaps]
  149. :[font = input; preserveAspect; ]
  150. NestList[mapUnion[#, affinemaps] &, i0, 4] //MatrixForm
  151. :[font = text; inactive; preserveAspect; ]
  152. Another way to generate the Cantor set C with an IFS is to use the random iteration algorithm. Again we use the set of 2 linear mappings w1(x) = x/3, and w2(x) = x/3 + 2/3.  One of the  mappings is chosen at random and applied a point  x in the interval [0,1] producing a new point  wi(x), where i is one of 1 or 2.  This random procedure is reapplied to the point wi(x) and so on.  This is called the chaos game or random iteration algorithm.  Excluding the first, say, 10 or so transient points, the resulting collection converges to the Cantor set C in a sense to be made precise later. 
  153. ;[s]
  154. 6:0,0;138,1;139,2;155,3;156,4;571,5;590,-1;
  155. 6:1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;
  156. :[font = input; preserveAspect; ]
  157. chaosGame[x_] :=
  158.     {#/3 &, #/3 +2/3 &}[[Random[Integer,{1,2}]]][x]
  159. :[font = input; preserveAspect; ]
  160. chaosGame[1/3]
  161. :[font = input; preserveAspect; ]
  162. NestList[chaosGame, 1/3, 40]
  163. :[font = text; inactive; preserveAspect; ]
  164. The Cantor set is rather ``thin'' and ``small'' as the pictures above suggest.  This will be made precise later.  This makes graphical determination of whether a point set is close to C difficult.  Rather than examining the results of the chaosGame iteration graphically, it is easier to look at the base-three expansion of the points. 
  165. :[font = input; preserveAspect; ]
  166. BaseForm[N[%], 3]
  167. :[font = text; inactive; preserveAspect; endGroup; ]
  168. Note that except for the first few elements, the elements are ``close '' to having only 0's and 2's in the expansion. 
  169. :[font = section; inactive; Cclosed; preserveAspect; startGroup; ]
  170. Basic Exercises
  171. :[font = text; inactive; preserveAspect; ]
  172. Are the endpoints of the subintervals comprising In contained in C(a,b,r1,r2)?  Explain why or why not.
  173. ;[s]
  174. 7:0,0;50,1;51,2;72,3;73,4;75,5;76,6;103,-1;
  175. 7:1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;
  176. :[font = text; inactive; preserveAspect; ]
  177. Is C(a,b,r1,r2) always a closed set?  Cite a reason why or provide a counterexample.
  178. ;[s]
  179. 5:0,0;10,1;11,2;13,3;14,4;84,-1;
  180. 5:1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;
  181. :[font = text; inactive; preserveAspect; ]
  182. Find the base-3 expansion of  2/9, 4/9, 5/9, 7/9, 8/9, 1/2, and 1/4. 
  183. :[font = input; preserveAspect; ]
  184. BaseForm[ N[1/4, 20], 3]
  185. :[font = input; preserveAspect; ]
  186. BaseForm[N[1/2,20], 3]
  187. :[font = text; inactive; preserveAspect; ]
  188. Explain why 1/3 is in the Cantor set even though its ternary expansion (as shown above) has a 1 in the first digit.
  189. :[font = text; inactive; preserveAspect; ]
  190. Apply the IFS method to the sets {{0,1/3}}, {{0,1/4},{3/4,1}} ,{{1/3,2/3}} and the set consisting of a single point {{1/2,1/2}}. Plot the results.   Do they appear to converge to the Cantor set?
  191. :[font = text; inactive; preserveAspect; endGroup; ]
  192. Try the chaosGame  iteration on x = 1/5 as above.  Except for the first few transients, do the results seem to converge to the Cantor Set C?  Do the number of transient points seem to depend on the starting value?
  193. :[font = section; inactive; Cclosed; preserveAspect; startGroup; ]
  194. Try For Yourself
  195. :[font = text; inactive; preserveAspect; ]
  196. Show that the Cantor set C has no isolated points.
  197. :[font = text; inactive; preserveAspect; ]
  198. Show that the Cantor set C contains no intervals. 
  199. :[font = text; inactive; preserveAspect; ]
  200. Show that the point x = 1/4 is  a point in the Cantor set, but it is not an endpoint of a complementary interval.
  201. :[font = text; inactive; preserveAspect; ]
  202. Show that an endpoint of intervals is a limit point of endpoints.
  203. :[font = text; inactive; preserveAspect; ]
  204. Show that for any two distinct points a, b of C, there exist disjoint closed sets A, B with a˛A and b˛B, and A¨B = C.
  205. ;[s]
  206. 7:0,0;93,1;96,2;101,3;102,4;110,5;115,6;117,-1;
  207. 7:1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;
  208. :[font = text; inactive; preserveAspect; ]
  209. Show that there is a one-to-one correspondence between the real numbers and the elements of the Cantor set.
  210. :[font = text; inactive; preserveAspect; ]
  211. Find a set of 3 and a set of 4 affine mappings whose IFS or map union generates the traditional Cantor set C.
  212. :[font = text; inactive; preserveAspect; endGroup; ]
  213. Find a characterization of the set of all points in [0,1] whose decimal expansions contains only the digits 4 and 7.  
  214. :[font = section; inactive; Cclosed; preserveAspect; startGroup; ]
  215. References
  216. :[font = text; inactive; preserveAspect; ]
  217. Information on the traditional Cantor set can be found in many places.  Two readily available sources are
  218. Principles of  Mathematical  Analysis,3rd edition, Walter Rudin, McGraw-Hill, New York, 1976
  219. and
  220. A Primer of Real Functions, Carus Mathematical Monographs 13, R. P. Boas, Mathematical Association of America, Washington, 1981.
  221. ;[s]
  222. 5:0,0;106,1;143,2;203,3;231,4;332,-1;
  223. 5:1,11,8,Times,0,12,0,0,0;1,10,8,Times,2,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,10,8,Times,2,12,0,0,0;1,11,8,Times,0,12,0,0,0;
  224. :[font = text; inactive; preserveAspect; ]
  225. The idea for the generalized Cantor sets comes from ``An Interesting Cantor Set'', W. A. Coppel, Amer. Math. Monthly, Volume 90, number 7, August-September 1983, pp.456-461.
  226. :[font = text; inactive; preserveAspect; ]
  227. The notion of an iterated function system and the chaos game are explained and elaborated in 
  228. Fractals Everywhere,  Michael Barnsley, Academic Press, NewYork, 1988.
  229. ;[s]
  230. 3:0,0;94,1;115,2;165,-1;
  231. 3:1,11,8,Times,0,12,0,0,0;1,10,8,Times,2,12,0,0,0;1,11,8,Times,0,12,0,0,0;
  232. :[font = text; inactive; preserveAspect; endGroup; endGroup; ]
  233. The ideas for the Mathematica code, and the displays of the construction of the Cantor sets are adapted from
  234. Mathematica in Action, Stan Wagon, W. H. Freeman, New York, 1991
  235. ;[s]
  236. 5:0,0;109,1;120,2;121,3;132,4;173,-1;
  237. 5:1,11,8,Times,0,12,0,0,0;1,10,8,Times,2,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,10,8,Times,2,12,0,0,0;1,11,8,Times,0,12,0,0,0;
  238. ^*)